-- card: 2108 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2579
-- name: Register
----- HyperTalk script -----
-- Solutions
-- Copyright Apple Computer, Inc. 1989
-- Original Version by HyperPro
-- First Revision by Eli Cochran for Customer Communications
-- lineClicked & scrollLineClicked functions by Robin Shank

-- HANDLERS: tabKey, openField, mouseUp, clearAll, clearText, showHideInstr
-- showInstr, hideInstr, closeCard, openCard

on tabKey
  global selectwhat
  if the number of the target < 4 then
    put the number of the target + 1 into nextNum
  else put 2 into nextNum
  if the name of the target contains "card" then
    put 2 into nextNum
    pass tabKey
  end if
  put "char 1 to the number of chars in bkgnd field" && nextNum && "of bkgnd field" && nextNum into selectwhat
  send openField to bkgnd field nextNum
end tabKey

on openField
  showHideInstr
end openfield

on showHideInstr
  global selectwhat
  if the number of the target > 4 then exit showHideInstr
  if the visible of card field (the short name of the target) is "false" then
    if selectwhat is empty then put the selectedchunk into selectwhat
    hideInstr
    showInstr (the short name of the target)
    select selectwhat
  end if
  put empty into selectwhat
end showHideInstr

on showInstr which
  global curOpen
  lock screen
  if which is "address" then
    show card btn "instr2a"
    show card btn "instr2b"
    show card btn "instr2c"
    show card btn "instr2d"
  else
    show card btn which
  end if
  show card field which
  if bkgnd field which is empty then
    set the showLines of bkgnd field which to true
  end if
  unlock screen with wipe left
  put which into curOpen
end showInstr

on hideInstr
  global curOpen
  if curOpen is empty then exit hideInstr
  lock screen
  if curOpen is "address" then
    hide card btn "instr2a"
    hide card btn "instr2b"
    hide card btn "instr2c"
    hide card btn "instr2d"
  else
    hide card btn curOpen
  end if
  hide card field curOpen
  repeat until last char of bkgnd field curOpen is not return
    delete last char of bkgnd field curOpen
  end repeat
  set the showlines of bkgnd field curOpen to false
  unlock screen with wipe right
  put empty into curOpen
end hideInstr

on mouseUp
  hideInstr
end mouseUp

on closeCard
  hideInstr
end closeCard

on openCard
  global oldName, oldAddr, oldPhone
  put bkgnd field name into oldName
  put bkgnd field address into oldAddr
  put bkgnd field phone into oldPhone
  wait 15
  tabKey
end openCard

on clearAll
  global curOpen
  repeat with x = 1 to 3
    put the short name of card field x into curOpen
    hideInstr
  end repeat
  put empty into curOpen
end clearAll

on clearText
  global curOpen
  repeat with x = 2 to 4
    put empty into bkgnd field x
  end repeat
end clearText


-- part 1 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=310 top=151 right=175 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name


-- part 2 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=153 right=173 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name


-- part 3 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=310 top=177 right=251 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: address


-- part 4 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=177 right=196 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2a


-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=195 right=214 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2b


-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=213 right=232 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2c


-- part 7 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=310 top=252 right=274 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: phone


-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=288 top=254 right=273 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: phone


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=449 top=309 right=336 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update
----- HyperTalk script -----
on mouseUp
  global userAddress
  if (bkgnd field "name" is not empty) AND (bkgnd field "address" is not empty) then
    put bkgnd field "name" & return into userAddress
    put bkgnd field "address" & return after userAddress
    put bkgnd field "phone" after userAddress
  else put empty into userAddress
  visual effect iris open
  pop card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=309 right=336 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global oldName, oldAddr, oldPhone, selectHard
  lock screen
  put oldName into bkgnd field name
  put oldAddr into bkgnd field address
  put oldPhone into bkgnd field phone
  put bkgnd field "name" & return into userAddress
  put bkgnd field "address" & return after userAddress
  put bkgnd field "phone" after userAddress
  pop card
  unlock screen with iris close
  if selectHard is not empty then select selectHard
end mouseUp



-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=256 top=41 right=59 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 12
-- style flags: 2048
-- line height: 16
-- part name: 


-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=233 top=309 right=336 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  clearAll
  clearText
  tabKey
end mouseUp



-- part 28 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=231 right=250 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2d


-- part contents for background part 7
----- text -----
User Registration

-- part contents for card part 1
----- text -----
Please type your name here.

-- part contents for card part 3
----- text -----
 Please enter your full 
 address and zip code on 
 these lines.

-- part contents for card part 7
----- text -----
 Enter your phone # here.

-- part contents for card part 18
----- text -----
Press the Tab key to enter each field.

-- part contents for background part 17
----- text -----
The “Solutions” HyperCard stack allows you to print out letters to resource providers. The information that you type below will be included at the bottom of the letters you print.